 open Printer  
 
 let _ =  if ((Array.length Sys.argv) = 1 ) 
 
 then let _ = print_string "Source File not provided" 
 in (); 
 else if ((Array.length Sys.argv) > 2 ) then 
 let _ = print_string "Only one source file as an argument is supported." 
 in (); 
 else let sourceFile = Sys.argv.(1) 
 in  
 let inChannel = open_in sourceFile 
 in 
 let lexbuf = Lexing.from_channel inChannel 
 
 in 
 
 let includename = Parser_TableProPreProcess.program Scanner_TableProPreProcess.token lexbuf in 
    let preprocessOut = sourceFile ^ "PP"
    in 
    ignore (PreProcessor.includemylib includename  sourceFile preprocessOut) 